# reading in the data
fish_passage <- read_csv(here("data", "willamette_fish_passage.csv")) %>%
clean_names() %>%
pivot_longer(cols = 3:15, names_to = "species", values_to = "counts") %>%
mutate(date_new = mdy(date)) %>%
filter(species %in% c("coho", "jack_coho", "steelhead")) %>%
as_tsibble(key = species,
index = date_new)
This dataset shows the number of fishes that have passed through the Willamette Falls Fish Ladder on the Willamette River in Oregon. Counts are taken from video recordings of the ladder every day, 24 hours/day, with only short breaks in data collection in 2005, 2008, and 2010 (11/29/2005-12/1/2005, 12/6/2005-12/8/2005, 12/13/2005-12/14/2005, 8/26/2008-9/21/2008, 8/23/2010-8/27/2010). In this report we examine patterns of Coho, Jack Coho, and Steelhead abundance through time at the Willamette Fish Ladder.
We first examine the full time series (first tab) to look for general trends in the data, then we divided the data up by year to see how fish abundance varies seasonally and by year (second tab), and finally we look at annual counts by species (third tab) to see how abundances are changing through time.
Data source:
Columbia Basin Research. DART Adult Passage Daily Counts For All Species for WFF-Willamette Falls. Dates: 2001-01-01 to 2010-12-31. Accessed: 2021-01-29. School of Aquatic & Fishery Sciences, University of Washington. URL: http://www.cbr.washington.edu/dart/query/adult_graph_text
Photograph of the Willamette Falls Fish Ladder. Photo credit: Yancy Lind
Map of the Willamette Falls Fish Ladder. Photo credit: U.S. Army Corps of Engineers
tab_1 <- fish_passage %>%
select(species, date_new, counts) %>%
mutate_if(is.numeric, ~replace(., is.na(.), 0)) %>%
mutate(year = year(date_new)) %>%
mutate(species = case_when(
species == "coho" ~ "Coho",
species == "jack_coho" ~ "Jack Coho",
species == "steelhead" ~ "Steelhead"
))
ggplot(data = tab_1, aes(x = date_new,
y = counts)) +
geom_line(aes(color = species)) +
#facet_wrap(~species, scales = "free_y") +
labs(x = "Time (years)",
y = "Number of Salmon",
title = "Coho, Jack Coho, and Steelhead Ladder Passage - Willamette River, Oregon") +
theme_classic() +
scale_color_manual(values = c("#238A8DFF", "95D8F0FF", "#440154FF"))
Figure 1: Coho, Jack Coho, and Steelhead passage through the Willamette Falls fish ladder on the Willamette River, Oregon, starting in 2001 and through 2010. Coho is indicated in red, Jack Coho is indicated in green, and Steelhead is indicated in blue. Data from: Colombia Basin Research. School of Aquatic & Fishery Science, University of Washington. Date accessed: 2021-01-29. http://www.cbr.washington.edu/dart/query/adult_graph_text
# create seasonplots for each species
fish_passage %>%
mutate(species = case_when(
species == "coho" ~ "Coho",
species == "jack_coho" ~ "Jack Coho",
species == "steelhead" ~ "Steelhead"
)) %>%
gg_season(y = counts,
pal = scales::viridis_pal()(9)) +
facet_wrap("species") +
ylab("Fish counts") +
xlab("Date") +
theme_classic()
Figure 2: Coho, Jack Coho, and Steelhead abundance through time on the Willamette River, Oregon, for 2001-2010. Each line represents a different year. Data from: Colombia Basin Research. School of Aquatic & Fishery Science, University of Washington. Date accessed: 2021-01-29. http://www.cbr.washington.edu/dart/query/adult_graph_text